home *** CD-ROM | disk | FTP | other *** search
/ What CD? 12 / What PC June 1997.iso / multi / cyber / cyber95 / _setup.1 / SINE.POP < prev    next >
Encoding:
Text File  |  1996-09-04  |  941 b   |  42 lines
  1. population 0
  2. dimensions = 1
  3. colour_model RGB
  4. render_quality flat
  5. genome 0 {
  6.  
  7.     // initialise turtle
  8.     hue( 0 : 0 : 1 ),
  9.     swivelRight( 1.570770 ),
  10.  
  11.     // initialise sine wave data
  12.     setScalarMem( 10, 0 ),                        // scalar mem[10] = theta
  13.     setScalarMem( 11, 0.5 : 0.01 : 1 ),    // scalar mem[11] = delta_theta
  14.  
  15.     // keep moving forward laying eggs scaled by a sine wave
  16.     for(
  17.         16.467342 : 10.000000 : 40.000000,
  18.         0,   // store loop variable in scalar mem[0]
  19.         
  20.         // loop code
  21.         join(
  22.             // do turtle stuff
  23.             forward( 0.540583 : -0.600000 : 0.600000 ),
  24.             moveHue( -0.009543 : -0.100000 : 0.100000 ),
  25.             eggVectorScaleAbs( 
  26.                 createVec(
  27.                     1,
  28.                     mul(
  29.                         abs( sin( getScalarMem(10) ) ),
  30.                         1 : 1 : 10
  31.                     ),
  32.                     1
  33.                 ) 
  34.             ),
  35.             lay,
  36.  
  37.             // theta += delta_theta
  38.             setScalarMem( 10, add(getScalarMem(10),getScalarMem(11)) )
  39.         )
  40.     )
  41. }
  42.